(ange-ftp-vms-sans-version): Accept extra args.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 0af2e987509fdf280e130c5f617daf19f919b591..87af1adedaaeeb01476171377a7b60fde2b01305 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -4835,7 +4835,7 @@ Other orders of $ and _ seem to all work just fine.")
 ;;       (cons '(vms . ange-ftp-dired-vms-ls-trim)
 ;;             ange-ftp-dired-ls-trim-alist))) 
 
-(defun ange-ftp-vms-sans-version (name)
+(defun ange-ftp-vms-sans-version (name &rest args)
   (save-match-data
     (if (string-match ";[0-9]+$" name)
        (substring name 0 (match-beginning 0))